home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / gfx / edit / Textimages.lha / textimages_4.03-demo / install < prev    next >
Text File  |  1997-08-25  |  2KB  |  90 lines
  1. ;======================================================================
  2. ;
  3. ;
  4. ; script d'installation pour TEXTIMAGES 4.03
  5. ;
  6. ;
  7. ; crée systématiquement un nouveau répertoire Textimages_4.03
  8. ; pour y copier le contenu de la disquette originale
  9. ; si un précédent tiroir Textimages_4.03 existe, la permission
  10. ; d'effacer sera demandée
  11. ;
  12. ; les tooltypes DEFTOOL des icônes PEINDRE et CONVERT24 voient enfin
  13. ; leur valeur modifiée
  14. ;
  15. ;
  16. ;================ nouveau tiroir et copie des fichiers ===============
  17.  
  18.  
  19. (set @app-name     "Textimages_4.03")
  20. (set @default-dest "Work:")
  21.  
  22. (set @default-dest
  23.      (askdir (prompt  "")
  24.              (help    @askdir-help)
  25.              (default @default-dest)))
  26.  
  27. (set #outputdir (tackon @default-dest @app-name))
  28.  
  29.  
  30. (if (exists #outputdir)
  31.     (
  32.       (set #deletion
  33.             (askbool (prompt ("\n%s already exists.\n\nOK to erase it ?" @app-name))
  34.                      (default 0)
  35.                      (help ("\n%s is already installed." @app-name)
  36.                             "\nClick 'Yes' to continue and erase it."
  37.                             "\nClick 'No' to abandon installation."
  38.                      )
  39.             )
  40.       )
  41.  
  42.       (if (= #deletion 0)
  43.           (exit (quiet))
  44.       )
  45.  
  46.       (set #commande
  47.             (cat ('Delete >NIL: <NIL: "%s"' #outputdir)
  48.                  (' all')
  49.             )
  50.       )
  51.  
  52.       (run #commande)
  53.     )
  54. )
  55.  
  56.  
  57. (makedir #outputdir
  58.          (infos))
  59.  
  60.  
  61. ; copie excluant : install, install.info, disk.info
  62.  
  63.  
  64. (copyfiles (source (pathonly @icon))
  65.            (dest   #outputdir)
  66.            (pattern "~(disk|install)#?")
  67.            (infos))
  68.  
  69.  
  70. ;================== tooltypes DEFTOOL modifiés ===================
  71.  
  72.  
  73. (set #deftool (tackon #outputdir "voir/voir"))
  74. (transcript "Updating tooltypes DEFTOOL.")
  75.  
  76. (tooltype (dest          (tackon #outputdir "peindre/peindre"))
  77.           (settooltype "DEFTOOL" #deftool))
  78.  
  79. (tooltype (dest          (tackon #outputdir "util/convert24"))
  80.           (settooltype "DEFTOOL" #deftool))
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.